home *** CD-ROM | disk | FTP | other *** search
/ Internet.Works 40 / Issue 40.iso / pc / MacToolkit / 00023_Tool2.ls < prev    next >
Encoding:
Text File  |  2000-09-26  |  806 b   |  31 lines
  1. on mouseWithin
  2.   if sprite(the currentSpriteNum).foreColor = 70 then
  3.     sprite(the currentSpriteNum).foreColor = 70
  4.     put EMPTY into member "Infofield"
  5.   else
  6.     if member("Title2").foreColor <> 70 then
  7.       cursor(280)
  8.       member("Title2").foreColor = 0
  9.       sprite(the currentSpriteNum).foreColor = 255
  10.       put "Click for further information about, or to install, Netscape v4.74" into member "Infofield"
  11.     end if
  12.   end if
  13. end
  14.  
  15. on mouseLeave
  16.   cursor(0)
  17.   if sprite(the currentSpriteNum).foreColor = 70 then
  18.     sprite(the currentSpriteNum).foreColor = 70
  19.   else
  20.     if member("Title2").foreColor <> 70 then
  21.       member("Title2").foreColor = 255
  22.       sprite(the currentSpriteNum).foreColor = 246
  23.       put EMPTY into member "Infofield"
  24.     end if
  25.   end if
  26. end
  27.  
  28. on mouseUp
  29.   go("Title2")
  30. end
  31.